home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / estenw_1 / chargen.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-25  |  6.5 KB  |  212 lines
  1. VERSION 5.00
  2. Begin VB.Form CharGen 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form3"
  5.    ClientHeight    =   8460
  6.    ClientLeft      =   2490
  7.    ClientTop       =   1995
  8.    ClientWidth     =   11700
  9.    LinkTopic       =   "Form3"
  10.    LockControls    =   -1  'True
  11.    PaletteMode     =   1  'UseZOrder
  12.    Picture         =   "CharGen.frx":0000
  13.    ScaleHeight     =   8460
  14.    ScaleWidth      =   11700
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.TextBox Text4 
  19.       BackColor       =   &H00008000&
  20.       BorderStyle     =   0  'None
  21.       ForeColor       =   &H0000C0C0&
  22.       Height          =   225
  23.       Left            =   4080
  24.       TabIndex        =   9
  25.       Text            =   "Text4"
  26.       Top             =   9765
  27.       Width           =   1815
  28.    End
  29.    Begin VB.TextBox Mana1 
  30.       BackColor       =   &H00008000&
  31.       BorderStyle     =   0  'None
  32.       ForeColor       =   &H0000C0C0&
  33.       Height          =   225
  34.       Left            =   5040
  35.       TabIndex        =   8
  36.       Top             =   5460
  37.       Width           =   1815
  38.    End
  39.    Begin VB.TextBox Strong1 
  40.       BackColor       =   &H00008000&
  41.       BorderStyle     =   0  'None
  42.       ForeColor       =   &H0000C0C0&
  43.       Height          =   225
  44.       Left            =   5055
  45.       TabIndex        =   6
  46.       Top             =   4395
  47.       Width           =   1815
  48.    End
  49.    Begin VB.TextBox Name1 
  50.       BackColor       =   &H00008000&
  51.       BorderStyle     =   0  'None
  52.       ForeColor       =   &H0000C0C0&
  53.       Height          =   225
  54.       Left            =   5055
  55.       TabIndex        =   4
  56.       Top             =   3345
  57.       Width           =   1815
  58.    End
  59.    Begin VB.TextBox Class1 
  60.       BackColor       =   &H00008000&
  61.       BorderStyle     =   0  'None
  62.       ForeColor       =   &H0000C0C0&
  63.       Height          =   225
  64.       Left            =   5055
  65.       TabIndex        =   1
  66.       Top             =   2295
  67.       Width           =   1815
  68.    End
  69.    Begin VB.Image Image1 
  70.       Height          =   2190
  71.       Left            =   4515
  72.       Top             =   5835
  73.       Width           =   2880
  74.    End
  75.    Begin VB.Label Label10 
  76.       BackStyle       =   0  'Transparent
  77.       Caption         =   "WARNING! You'll miss all the fun getting your character too strong!"
  78.       BeginProperty Font 
  79.          Name            =   "Arial Black"
  80.          Size            =   12
  81.          Charset         =   0
  82.          Weight          =   700
  83.          Underline       =   0   'False
  84.          Italic          =   -1  'True
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   345
  88.       Left            =   1080
  89.       TabIndex        =   13
  90.       Top             =   8100
  91.       Width           =   10065
  92.    End
  93.    Begin VB.Image OK 
  94.       Height          =   330
  95.       Left            =   7440
  96.       Picture         =   "CharGen.frx":75742
  97.       Stretch         =   -1  'True
  98.       Top             =   150
  99.       Width           =   1245
  100.    End
  101.    Begin VB.Image Cancel 
  102.       Height          =   330
  103.       Left            =   8805
  104.       Picture         =   "CharGen.frx":76930
  105.       Stretch         =   -1  'True
  106.       Top             =   150
  107.       Width           =   1245
  108.    End
  109.    Begin VB.Label Label9 
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "You are FREE to choose EVERYTHING!!!"
  112.       ForeColor       =   &H0000FF00&
  113.       Height          =   180
  114.       Left            =   2055
  115.       TabIndex        =   12
  116.       Top             =   450
  117.       Width           =   3165
  118.    End
  119.    Begin VB.Label Label6 
  120.       BackStyle       =   0  'Transparent
  121.       Caption         =   "Character :"
  122.       ForeColor       =   &H000000FF&
  123.       Height          =   225
  124.       Left            =   5535
  125.       TabIndex        =   11
  126.       Top             =   1440
  127.       Width           =   1245
  128.    End
  129.    Begin VB.Label Label5 
  130.       BackStyle       =   0  'Transparent
  131.       Caption         =   "And what about your mana ?"
  132.       ForeColor       =   &H0000C0C0&
  133.       Height          =   225
  134.       Index           =   1
  135.       Left            =   3960
  136.       TabIndex        =   10
  137.       Top             =   9450
  138.       Width           =   2175
  139.    End
  140.    Begin VB.Label Label5 
  141.       BackStyle       =   0  'Transparent
  142.       Caption         =   "And what about your mana ?"
  143.       ForeColor       =   &H0000C0C0&
  144.       Height          =   225
  145.       Index           =   0
  146.       Left            =   4935
  147.       TabIndex        =   7
  148.       Top             =   5130
  149.       Width           =   2175
  150.    End
  151.    Begin VB.Label Label4 
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "Are you strong (1-100) ?"
  154.       ForeColor       =   &H0000C0C0&
  155.       Height          =   225
  156.       Index           =   0
  157.       Left            =   5055
  158.       TabIndex        =   5
  159.       Top             =   4080
  160.       Width           =   1935
  161.    End
  162.    Begin VB.Label Label3 
  163.       BackStyle       =   0  'Transparent
  164.       Caption         =   "Your name?"
  165.       ForeColor       =   &H0000C0C0&
  166.       Height          =   225
  167.       Index           =   0
  168.       Left            =   5415
  169.       TabIndex        =   3
  170.       Top             =   3030
  171.       Width           =   1095
  172.    End
  173.    Begin VB.Label Label2 
  174.       BackStyle       =   0  'Transparent
  175.       Caption         =   "To generate your character, answer the following questions:"
  176.       ForeColor       =   &H0000C000&
  177.       Height          =   225
  178.       Left            =   2040
  179.       TabIndex        =   2
  180.       Top             =   210
  181.       Width           =   4335
  182.    End
  183.    Begin VB.Label Label1 
  184.       BackStyle       =   0  'Transparent
  185.       Caption         =   "What (class) do you want to be ?"
  186.       ForeColor       =   &H0000C0C0&
  187.       Height          =   225
  188.       Index           =   0
  189.       Left            =   4815
  190.       TabIndex        =   0
  191.       Top             =   1935
  192.       Width           =   2715
  193.    End
  194. Attribute VB_Name = "CharGen"
  195. Attribute VB_GlobalNameSpace = False
  196. Attribute VB_Creatable = False
  197. Attribute VB_PredeclaredId = True
  198. Attribute VB_Exposed = False
  199. Private Sub SSRibbon1_Click(Value As Integer)
  200. End Sub
  201. Private Sub OKButton_Click()
  202. End Sub
  203. Private Sub Cancel_Click()
  204. Unload CharGen
  205. Menu.Visible = True
  206. End Sub
  207. Private Sub OK_Click()
  208.  InGame.Show
  209.  Unload CharGen
  210.  InGame.Visible = True
  211. End Sub
  212.